/*** THIS PROGRAM AIMS AT:
- stacking together the series of monthly business surveys;
- merging the set of business surveys with the quarterly ACEMO surveys that contain data about wages;
- merging these data with the set of producer price indices available at the industry level

The input from Laurent Baudry, Thomas Heckel and Sylvie Tarrieu is gratefully aknowledged. 
****/ 

DM 'CLEAR LOG; CLEAR OUTPUT;';
libname TEMP 'C:\Users\SAMIC\Documents\Version_FINALE\Envoi_Final_REStat\Envoi_pgm\Verif_data';
options nonotes;

/*******************************************************/
/* BUSINESS SURVEYS STACKING INTO A SINGLE (EC) FILE   */	 
/*******************************************************/

data TEMP.EC; set 
temp.fichier_1996_janvier			(rename=(SIREN=SIRET) in=DS1996M1)
temp.fichier_1996_fevrier			(rename=(SIREN=SIRET) in=DS1996M2)
temp.fichier_1996_mars				(rename=(SIREN=SIRET) in=DS1996M3)
temp.fichier_1996_avril			    (rename=(SIREN=SIRET) in=DS1996M4)
temp.fichier_1996_mai				(rename=(SIREN=SIRET) in=DS1996M5)
temp.fichier_1996_juin				(rename=(SIREN=SIRET) in=DS1996M6)
/*temp.fichier_1996_juillet  		(rename=(SIREN=SIRET) in=DS1996M7)*/
temp.fichier_1996_septembre	   	    (rename=(SIREN=SIRET) in=DS1996M9)
temp.fichier_1996_octobre			(rename=(SIREN=SIRET) in=DS1996M10)
temp.fichier_1996_novembre			(rename=(SIREN=SIRET) in=DS1996M11)
temp.fichier_1996_decembre			(rename=(SIREN=SIRET) in=DS1996M12)

temp.fichier_1997_janvier			(rename=(SIREN=SIRET) in=DS1997M1)
temp.fichier_1997_fevrier			(rename=(SIREN=SIRET) in=DS1997M2)
temp.fichier_1997_mars				(rename=(SIREN=SIRET) in=DS1997M3)
temp.fichier_1997_avril			    (rename=(SIREN=SIRET) in=DS1997M4)
temp.fichier_1997_mai				(rename=(SIREN=SIRET) in=DS1997M5)
temp.fichier_1997_juin				(rename=(SIREN=SIRET) in=DS1997M6)
/*temp.fichier_1997_juillet  		(rename=(SIREN=SIRET) in=DS1997M7)*/
temp.fichier_1997_septembre		    (rename=(SIREN=SIRET) in=DS1997M9)
temp.fichier_1997_octobre			(rename=(SIREN=SIRET) in=DS1997M10)
temp.fichier_1997_novembre			(rename=(SIREN=SIRET) in=DS1997M11)
temp.fichier_1997_decembre			(rename=(SIREN=SIRET) in=DS1997M12)

temp.fichier_1998_janvier			(rename=(SIREN=SIRET) in=DS1998M1)
temp.fichier_1998_fevrier			(rename=(SIREN=SIRET) in=DS1998M2)
temp.fichier_1998_mars				(rename=(SIREN=SIRET) in=DS1998M3)
temp.fichier_1998_avril			    (rename=(SIREN=SIRET) in=DS1998M4)
temp.fichier_1998_mai				(rename=(SIREN=SIRET) in=DS1998M5)
temp.fichier_1998_juin				(rename=(SIREN=SIRET) in=DS1998M6)
temp.fichier_1998_juillet  		    (rename=(SIREN=SIRET) in=DS1998M7)
temp.fichier_1998_septembre		    (rename=(SIREN=SIRET) in=DS1998M9)
temp.fichier_1998_octobre			(rename=(SIREN=SIRET) in=DS1998M10)
temp.fichier_1998_novembre			(rename=(SIREN=SIRET) in=DS1998M11)
temp.fichier_1998_decembre			(rename=(SIREN=SIRET) in=DS1998M12)

temp.fichier_1999_janvier			(rename=(SIREN=SIRET) in=DS1999M1)
temp.fichier_1999_fevrier			(rename=(SIREN=SIRET) in=DS1999M2)
temp.fichier_1999_mars				(rename=(SIREN=SIRET) in=DS1999M3)
temp.fichier_1999_avril			    (rename=(SIREN=SIRET) in=DS1999M4)
temp.fichier_1999_mai				(rename=(SIREN=SIRET) in=DS1999M5)
temp.fichier_1999_juin				(rename=(SIREN=SIRET) in=DS1999M6)
temp.fichier_1999_juillet  		    (rename=(SIREN=SIRET) in=DS1999M7)
temp.fichier_1999_septembre		    (rename=(SIREN=SIRET) in=DS1999M9)
temp.fichier_1999_octobre			(rename=(SIREN=SIRET) in=DS1999M10)
temp.fichier_1999_novembre			(rename=(SIREN=SIRET) in=DS1999M11)
temp.fichier_1999_decembre			(rename=(SIREN=SIRET) in=DS1999M12)

temp.fichier_2000_janvier			(rename=(SIREN=SIRET) in=DS2000M1)
temp.fichier_2000_fevrier			(rename=(SIREN=SIRET) in=DS2000M2)
temp.fichier_2000_mars				(rename=(SIREN=SIRET) in=DS2000M3)
temp.fichier_2000_avril			    (rename=(SIREN=SIRET) in=DS2000M4)
temp.fichier_2000_mai				(rename=(SIREN=SIRET) in=DS2000M5)
temp.fichier_2000_juin				(rename=(SIREN=SIRET) in=DS2000M6)
temp.fichier_2000_juillet  		    (rename=(SIREN=SIRET) in=DS2000M7)
temp.fichier_2000_septembre		    (rename=(SIREN=SIRET) in=DS2000M9)
temp.fichier_2000_octobre			(rename=(SIREN=SIRET) in=DS2000M10)
temp.fichier_2000_novembre			(rename=(SIREN=SIRET) in=DS2000M11)
temp.fichier_2000_decembre			(rename=(SIREN=SIRET) in=DS2000M12)

temp.fichier_2001_janvier			(rename=(SIREN=SIRET) in=DS2001M1)
temp.fichier_2001_fevrier			(rename=(SIREN=SIRET) in=DS2001M2)
temp.fichier_2001_mars				(rename=(SIREN=SIRET) in=DS2001M3)
temp.fichier_2001_avril			    (rename=(SIREN=SIRET) in=DS2001M4)
temp.fichier_2001_mai				(rename=(SIREN=SIRET) in=DS2001M5)
temp.fichier_2001_juin				(rename=(SIREN=SIRET) in=DS2001M6)
temp.fichier_2001_juillet  		    (rename=(SIREN=SIRET) in=DS2001M7)
temp.fichier_2001_septembre		    (rename=(SIREN=SIRET) in=DS2001M9)
temp.fichier_2001_octobre			(rename=(SIREN=SIRET) in=DS2001M10)
temp.fichier_2001_novembre			(rename=(SIREN=SIRET) in=DS2001M11)
temp.fichier_2001_decembre			(rename=(SIREN=SIRET) in=DS2001M12)

temp.fichier_2002_janvier			(rename=(SIREN=SIRET) in=DS2002M1)
temp.fichier_2002_fevrier			(rename=(SIREN=SIRET) in=DS2002M2)
temp.fichier_2002_mars				(rename=(SIREN=SIRET) in=DS2002M3)
temp.fichier_2002_avril			    (rename=(SIREN=SIRET) in=DS2002M4)
temp.fichier_2002_mai				(rename=(SIREN=SIRET) in=DS2002M5)
temp.fichier_2002_juin				(rename=(SIREN=SIRET) in=DS2002M6)
temp.fichier_2002_juillet  		    (rename=(SIREN=SIRET) in=DS2002M7)
temp.fichier_2002_septembre		    (rename=(SIREN=SIRET) in=DS2002M9)
temp.fichier_2002_octobre			(rename=(SIREN=SIRET) in=DS2002M10)
temp.fichier_2002_novembre			(rename=(SIREN=SIRET) in=DS2002M11)
temp.fichier_2002_decembre			(rename=(SIREN=SIRET) in=DS2002M12)

temp.fichier_2003_janvier			(rename=(SIREN=SIRET) in=DS2003M1)
temp.fichier_2003_fevrier			(rename=(SIREN=SIRET) in=DS2003M2)
temp.fichier_2003_mars				(rename=(SIREN=SIRET) in=DS2003M3)
temp.fichier_2003_avril			    (rename=(SIREN=SIRET) in=DS2003M4)
temp.fichier_2003_mai				(rename=(SIREN=SIRET) in=DS2003M5)
temp.fichier_2003_juin				(rename=(SIREN=SIRET) in=DS2003M6)
temp.fichier_2003_juillet  		    (rename=(SIREN=SIRET) in=DS2003M7)
temp.fichier_2003_septembre		    (rename=(SIREN=SIRET) in=DS2003M9)
temp.fichier_2003_octobre			(rename=(SIREN=SIRET) in=DS2003M10)
temp.fichier_2003_novembre			(rename=(SIREN=SIRET) in=DS2003M11)
temp.fichier_2003_decembre			(rename=(SIREN=SIRET) in=DS2003M12)

temp.fichier_2004_janvier			(rename=(SIREN=SIRET) in=DS2004M1)
temp.fichier_2004_fevrier			(rename=(SIREN=SIRET) in=DS2004M2)
temp.fichier_2004_mars				(rename=(SIREN=SIRET) in=DS2004M3)
temp.fichier_2004_avril			    (rename=(SIREN=SIRET) in=DS2004M4)
temp.fichier_2004_mai				(rename=(SIREN=SIRET) in=DS2004M5)
temp.fichier_2004_juin				(rename=(SIREN=SIRET) in=DS2004M6)
temp.fichier_2004_juillet  		    (rename=(SIREN=SIRET) in=DS2004M7)
temp.fichier_2004_septembre		    (rename=(SIREN=SIRET) in=DS2004M9)
temp.fichier_2004_octobre			(rename=(SIREN=SIRET) in=DS2004M10)
temp.fichier_2004_novembre			(rename=(SIREN=SIRET) in=DS2004M11)
temp.fichier_2004_decembre			(rename=(SIREN=SIRET) in=DS2004M12)

temp.fichier_2005_janvier			(rename=(SIREN=SIRET) in=DS2005M1)
temp.fichier_2005_fevrier			(rename=(SIREN=SIRET) in=DS2005M2)
temp.fichier_2005_mars				(rename=(SIREN=SIRET) in=DS2005M3)
temp.fichier_2005_avril			    (rename=(SIREN=SIRET) in=DS2005M4)
temp.fichier_2005_mai				(rename=(SIREN=SIRET) in=DS2005M5)
temp.fichier_2005_juin				(rename=(SIREN=SIRET) in=DS2005M6)
temp.fichier_2005_juillet  		    (rename=(SIREN=SIRET) in=DS2005M7)
temp.fichier_2005_septembre_special (rename=(SIREN=SIRET) in=DS2005M9)
temp.fichier_2005_octobre			(rename=(SIREN=SIRET) in=DS2005M10)
temp.fichier_2005_novembre			(rename=(SIREN=SIRET) in=DS2005M11)
temp.fichier_2005_decembre			(rename=(SIREN=SIRET) in=DS2005M12);

length SIREN $ 9; SIREN = substr(SIRET,1,9); 
length ETABL $ 5; ETABL = substr(SIRET,10,5);  

NAF=APE;
* ADJUSTMENT OF INDUSTRY CLASSIFICATION (NAF VS APE); 
if APE='A159' then NAF='159F'; 
if APE='A193' then NAF='193Z'; 
if APE='A201' then NAF='201A'; 
if APE='A204' then NAF='204Z'; 
if APE='A211' then NAF='211C';
if APE='A222' then NAF='222C'; 
if APE='A245' then NAF='245C'; 
if APE='A251' then NAF='251A'; 
if APE='A261' then NAF='261E';
if APE='A271' then NAF='271Y'; 
if APE='A341' then NAF='341Z'; 
if APE='A361' then NAF='361A';
if APE='B159' then NAF='159F'; 
if APE='B193' then NAF='193Z'; 
if APE='B201' then NAF='201A'; 
if APE='B204' then NAF='204Z'; 
if APE='B211' then NAF='211C';
if APE='B222' then NAF='222C'; 
if APE='B245' then NAF='245C'; 
if APE='B261' then NAF='261E';
if APE='B271' then NAF='271Y'; 
if APE='B341' then NAF='341Z'; 
if APE='B361' then NAF='361A';
if APE='C201' then NAF='201A'; 
if APE='C211' then NAF='211C'; 
if APE='C222' then NAF='222C'; 
if APE='C261' then NAF='261E';
if APE='C271' then NAF='271Y'; 
if APE='C283' then NAF='283C'; 
if APE='D222' then NAF='222C';
if APE='D271' then NAF='271Y'; 
if APE='E222' then NAF='222C'; 
run;

proc contents data = temp.ec; run;

data TEMP.EC2; set TEMP.EC(keep = SIREN ETABL ANNEE MOIS EFF APE NAF EVCOM EVPRMP EVPRPF PREVPRPF 
PREVPRO EVPRO EVSTPF PREVSTPF ); 

/*********************************************/
/*    CREATION OF A MONTHLY ACEMO DATASET    */ 
/*********************************************/

data TEMP.ACEMO; set temp.BASE_ENTREPRISES_REDUITE_DEF; run; 

data TEMP.ACEMO2; set temp.ACEMO_1999_2006_APURE3(keep=SIRET C_APETD DATE /*PREST1 R_RETOUR*/ NICGR EFFTOT EFFSIR 
                                                   rename=(C_APETD=NAF)); run; 
 
proc sort data = TEMP.ACEMO; by SIRET DATE; run; 
proc sort data = TEMP.ACEMO2; by SIRET DATE; run; 
data TEMP.ACEMO3; merge TEMP.ACEMO(in=DSACEMO) TEMP.ACEMO2; by SIRET DATE; if DSACEMO; run; 

* CREATION OF SEPARATE IDENTIFIERS FOR FIRMS (SIREN) and PLANTS (ETABL); 
data TEMP.ACEMO4(drop=SIRET); set TEMP.ACEMO3; 
	SIREN  = substr(SIRET,1,9); ETABL  = substr(SIRET,10,5);  ETABL2 = NICGR; 
	ETABL  = compress(ETABL);  ETABL2 = compress(ETABL2);  

	if length(ETABL2) ne 5 then ETABL2 = ""; if length(ETABL) ne 5 then ETABL = ""; 
	if ETABL2 ne "" then ETABL = ETABL2; 

run;

* CREATION OF MONTHLY OBSERVATIONS FROM THE QUARTERLY SURVEY; 
data TEMP.ACEMO5; set TEMP.ACEMO4; 
	ANNEE = int(DATE); 
	if DATE-ANNEE=0.00 then do;
		do I=1 to 3; MOIS=I; output; end; 
		end;  
	if DATE-ANNEE=0.25 then do;
		do I=4 to 6; MOIS=I; output; end; 
		end;  
	if DATE-ANNEE=0.50 then do;
		do I=7 to 9; MOIS=I; if I ne 8 then output; end; 
		end;  
	if DATE-ANNEE=0.75 then do;
		do I=10 to 12; MOIS=I; output; end; 
		end;  
	run; 

* ADJUSTMENT OF INDUSTRY CLASSIFICATION (NAF VS APE); 
data TEMP.ACEMO6; set TEMP.ACEMO5; 
APE=NAF;
	if      NAF='159F' then do; 					APE='A159'; output; APE='B159'; output; end; 
	else if NAF='193Z' then do; 					APE='A193'; output; APE='B193'; output; end; 
	else if NAF='201A' then do; 					APE='A201'; output; APE='B201'; output; APE='C201'; output;  end;
	else if NAF='204Z' then do; 					APE='A204'; output; APE='B204'; output; end;
	else if NAF='211C' then do; 					APE='A211'; output; APE='B211'; output; APE='C211'; output;  end;
	else if NAF='222C' then do; APE='222C'; output; APE='A222'; output; APE='B222'; output; APE='C222'; output; APE='D222'; output; APE='E222'; output;  end;
	else if NAF='245C' then do; APE='245C'; output; APE='A245'; output; APE='B245' ; output; end; 
	else if NAF='251A' then do; APE='251A'; output; APE='A251'; output; end;
	else if NAF='261E' then do; 					APE='A261'; output; APE='B261'; output; APE='C261'; output; end; 
	else if NAF='271Y' then do; APE='271Y'; output; APE='A271'; output; APE='B271'; output; APE='C271'; output; APE='D271'; output; end;
	else if NAF='283C' then do; APE='283C'; output; APE='C283'; output; end; 
	else if NAF='341Z' then do; 					APE='A341'; output; APE='B341'; output; end; 
	else if NAF='361A' then do; 					APE='A361'; output; APE='B361'; output; end; 
	else output; 
	run; 


/*********************/
/* FILES MERGING ... */ 
/*********************/

* SIREN ETABL IS AN IDENTIFIER FOR FIRMS WITH ONLY ONE PRODUCT; 

proc sort data = TEMP.EC2; by SIREN ETABL ANNEE MOIS APE; run;
proc means data = TEMP.EC2 noprint; by SIREN ETABL ANNEE MOIS; 
	var MOIS; output out = TEMP.NBAPE n=NBAPE; 
	run;
data TEMP.EC3; merge TEMP.EC2 TEMP.NBAPE; by SIREN ETABL ANNEE MOIS; run;

proc sort data = TEMP.ACEMO5; by SIREN ETABL ANNEE MOIS; run; 
data TEMP.ACEMO_EC; merge 
	 TEMP.ACEMO5(in=DSACEMO rename=(NAF=NAF_ACEMO EFFTOT=EFFTOT_ACEMO EFFSIR=EFFSIR_ACEMO)) 
	 TEMP.EC3(in=DSEC where=(ETABL ne "" and NBAPE=1) rename=(NAF=NAF_EC EFF=EFF_EC APE=APE_EC)); 
	by SIREN ETABL ANNEE MOIS; if DSEC /*and DSACEMO*/;
	FUSION = "SIREN ETABL    ";
	ETABL_ACEMO = ETABL; ETABL_EC = ETABL; APE_ACEMO = ""; 
run; 

* SIREN ETABL APE IS AN IDENTIFIER FOR FIRMS WITH SEVERAL PRODUCTS; 

proc sort data = TEMP.ACEMO6; by SIREN ETABL ANNEE MOIS APE; run; 
data TEMP.ACEMO_EC2; merge 
	 TEMP.ACEMO6(in=DSACEMO rename=(NAF=NAF_ACEMO EFFTOT=EFFTOT_ACEMO EFFSIR=EFFSIR_ACEMO)) 
	 TEMP.EC3(in=DSEC where=(ETABL ne "" and NBAPE>1) rename=(NAF=NAF_EC EFF=EFF_EC)); 
	by SIREN ETABL ANNEE MOIS APE; if DSEC /*and DSACEMO*/;
	FUSION = "SIREN ETABL APE";
	ETABL_ACEMO = ETABL; ETABL_EC = ETABL; APE_ACEMO = APE; APE_EC = APE; 
run; 

* SIREN APE IS AN IDENTIFIER FOR FIRMS WITH ETABL = "";  

proc sort data = TEMP.ACEMO6; by SIREN APE ANNEE MOIS NAF ETABL; run; 
proc means data = TEMP.ACEMO6(where=(ISALMTOT2 ne .)) noprint; by SIREN APE ANNEE MOIS NAF; 
	var ISALMTOT2; weight PTOT2; output out = TEMP.ACEMO7 mean = ISALMTOT2 sumwgt = PTOT2 n = NBETABL;  
	run; 
proc means data = TEMP.ACEMO6(where=(ISALMTOT2 ne .)) noprint; by SIREN APE ANNEE MOIS NAF; 
	var EFFTOT EFFSIR; output out = TEMP.ACEMO7b sum = EFFTOT EFFSIR /*n = NBETABL2*/;  
	run; 
proc means data = TEMP.ACEMO6(where=(ISALHTOT2 ne .)) noprint; by SIREN APE ANNEE MOIS NAF; 
	var ISALHTOT2; weight PTOT2; output out = TEMP.ACEMO7c mean = ISALHTOT2 sumwgt = PTOT2_H n = NBETABL;  
	run; 
proc means data = TEMP.ACEMO6(where=(ISALHTOT2 ne .)) noprint; by SIREN APE ANNEE MOIS NAF; 
	var EFFTOT EFFSIR; output out = TEMP.ACEMO7d sum = EFFTOT EFFSIR /*n = NBETABL2*/;  
	run; 
data TEMP.ACEMO8; merge TEMP.ACEMO7 TEMP.ACEMO7b TEMP.ACEMO7c TEMP.ACEMO7d; by SIREN APE ANNEE MOIS NAF; 
	if NBETABL>1 then ETABL = ""; 
	run; 

proc sort data = TEMP.EC3; by SIREN APE ANNEE MOIS ETABL; run; 
data TEMP.ACEMO_EC3; merge 
	 TEMP.ACEMO8(in=DSACEMO rename=(ETABL=ETABL_ACEMO NAF=NAF_ACEMO EFFTOT=EFFTOT_ACEMO EFFSIR=EFFSIR_ACEMO)) 
	 TEMP.EC3(in=DSEC where=(ETABL_EC = "" and APE ne "") rename=(ETABL=ETABL_EC NAF=NAF_EC EFF=EFF_EC)); 
	by SIREN APE ANNEE MOIS; if DSEC /*and DSACEMO*/; 	
	FUSION = "SIREN       APE";
	APE_ACEMO = APE; APE_EC = APE; 
run; 


/** STACKING OF THE THREE DATABASES */
data TEMP.ACEMO_EC4; set TEMP.ACEMO_EC TEMP.ACEMO_EC2 TEMP.ACEMO_EC3; run; 
options nocenter; proc freq data = TEMP.ACEMO_EC4; tables ANNEE*MOIS; run; 

proc sort data = TEMP.ACEMO_EC4(keep=SIREN ETABL_EC APE_EC ANNEE MOIS) out = TEST nodupkeys; by SIREN ETABL_EC APE_EC ANNEE MOIS; run; 


/***************************************/
/* MERGING WITH PRODUCER PRICE INDICES */	 
/***************************************/

data TEMP.ACEMO_EC5; set TEMP.ACEMO_EC4;
isalmtot2=isalmtot2*100;

format NAF_MC $2. ; NAF_MC =substr(NAF_EC,1,2);
format NAF_FUS $4.; NAF_FUS=NAF_MC;
if NAF_EC = '331A' then NAF_FUS='331 ';
if NAF_EC = '331B' then NAF_FUS='331 '; 
if NAF_EC = '332A' then NAF_FUS='332 ';
if NAF_EC = '332B' then NAF_FUS='332 '; 
if NAF_EC = '333Z' then NAF_FUS='333 ';
if NAF_EC = '334A' then NAF_FUS='334 ';
if NAF_EC = '334B' then NAF_FUS='334 '; 
if NAF_EC = '335Z' then NAF_FUS='CONS'; 
if NAF_EC = '354A' then NAF_FUS='354'; 
if NAF_EC = '354C' then NAF_FUS='354'; 
if NAF_EC = '354E' then NAF_FUS='354'; 
if NAF_EC = '351B' then NAF_FUS='EQUI'; 
if NAF_EC = '351C' then NAF_FUS='EQUI'; 
if NAF_EC = '351E' then NAF_FUS='EQUI'; 
if NAF_EC = '352Z' then NAF_FUS='EQUI'; 
if NAF_EC = '353A' then NAF_FUS='EQUI'; 
if NAF_EC = '353B' then NAF_FUS='EQUI'; 
if NAF_EC = '353C' then NAF_FUS='EQUI';
if NAF_EC = '300A' then NAF_FUS='300'; 
if NAF_EC = '300C' then NAF_FUS='300'; 
run;

proc sort data=temp.IPP2; by NAF_FUS ANNEE MOIS; run;
proc sort data=TEMP.ACEMO_EC5; by NAF_FUS ANNEE MOIS;run;
data TEMP.ACEMO_EC6; merge TEMP.ACEMO_EC5(in=IN1) temp.IPP2(in=IN2 drop=LIPP2); 
	by NAF_FUS ANNEE MOIS; if IN1; 
	INDIC_CONSO=(CPF2='CPFCONSO');
	INDIC_EQUIP=(CPF2='CPFEQUIP');
	if IN1 and not(IN2) then IPP2_MISSING=1; else IPP2_MISSING=0; 
	run;

data TEMP.ACEMO_EC9; set TEMP.ACEMO_EC6;  
length groupe_ape_new $4.; 
groupe_ape_new=ape_EC;
if ape_EC in ('154C','154E') then groupe_ape_new='154';
if ape_EC in ('A361','B361','361A') then groupe_ape_new='361A';
if ape_EC in ('A222','B222','C222','D222','E222','222C') then groupe_ape_new='222C';
if ape_EC in ('362A','362C') then groupe_ape_new='362';
if ape_EC in ('354A','354C') then groupe_ape_new='35D';
if ape_EC in ('294C','294E') then groupe_ape_new='2942';
if ape_EC in ('141A','141E','267Z') then groupe_ape_new='R2';
if ape_EC in ('265E','266C') then groupe_ape_new='R7';
if ape_EC in ('261J','261K') then groupe_ape_new='2615';
if ape_EC in ('283C','C283') then groupe_ape_new='283C';
if ape_EC in ('A201','B201','C201','201A') then groupe_ape_new='201A';
if ape_EC in ('A204','B204') then groupe_ape_new='204';
if ape_EC in ('A211','B211','C211') then groupe_ape_new='211C';
if ape_EC in ('A251','251A') then groupe_ape_new='251A';
if ape_EC in ('274A','274F','274G','274J','274K','274M') then groupe_ape_new='S274';
if ape_EC in ('283A','283B') then groupe_ape_new='2831';
if ape_EC in ('A245','B245','245C') then groupe_ape_new='245C';
/* new groups */
if ape_EC in ('155A','155D') then groupe_ape_new='R155';
if ape_EC in ('159B','159G') then groupe_ape_new='R159';
if ape_EC in ('A159','B159') then groupe_ape_new='159F';
if ape_EC in ('A193','B193') then groupe_ape_new='193';
if ape_EC in ('A261','B261','C261') then groupe_ape_new='261E';
run; 

	
/* FILE SAVE */

data TEMP.ACEMO_EC; set TEMP.ACEMO_EC9; 
	ETABL = ETABL_EC; APE = APE_EC; 
	run; 
 
options notes;
proc sort data = TEMP.ACEMO_EC; by SIREN ETABL APE ANNEE MOIS; run; 



